home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / mac / 3-Presentations / Apple Demos / CPUs / Macintosh Solutions Demo / Macintosh Solutions 1.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1990-08-24  |  4KB  |  16 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>36</cardCount>
  7.     <cardID>2980</cardID>
  8.     <listID>23451</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-------------------------------------------------------------------------                        Macintosh Solutions--                     ¬© 1990 Apple Computer, Inc.--                        ¬© 1990 HyperPro,Inc.--                           Version 1.0-----------------------------------------------------------------------STACK: Macintosh SolutionsHANDLERS: closestack,doMenu,arrowkey,doAttract,endAttract,--        openstack,badVersion,idle,checkReset,setTimerLoc,--        goSubMenu,go,security,show,showCopyrightFUNCTIONS: alphaNumRESOURCES:vers: ,FOND: GaramondFONT: Garamond,,,,,,,,,,XFCN: Display,GetValueXCMD: TitleBar,SaveColorState,GETMAXCOLORS,SetColorState,flushevents,WriteVersion,SetVolume,PlayVW,ClipVW,GetFrameVW,SetScreenVW,DrawPict,NewWindow,NewObject,SetWindow,Color,Objects,Windows,SetValuePICT: Macintosh Classic,Macintosh IIci,Macintosh IIfx,Macintosh IIsi,Macintosh LC,Macintosh Portable,Macintosh SE/30,Classic,IIci,IIfx,IIsi,LC,Portable,SE/30,Color AppleSize of script: 2935 chars------------------------------------------------------------------------ Apple Team:-- Joanne Varni (Project Manager)-- HyperPro Team:-- Garth Catterall (VideoWorks Engineer)-- Peter Cleaveland (Implementor)-- Lode Coen (Director of Computer Graphics)-- David Donaldson (Creative Director)-- Paul Foraker (Project Manager, Technical Director)-- Jeff Stokol (Illustrator)-- Elaine Ung (Test Engineer)-----------------------------------------------------------------------on closestackglobal KWspace,MSscripting,RPStackNameshowCopyRightsecurity FALSEif RPStackName = "" then titleBar showput empty into MSscriptingif KWspace is not empty then windows killAllend closestackon openstackglobal InstoreReturnPathif the version < 1.2 then badVersionsetTimerLocput "Main Menu" into InstoreReturnPathend openstackon security whatglobal MSscripting,InstoreUserPrefs,RPStackNameif what is TRUE thenput FALSE into MSscriptingput the userlevel into line 1 of InstoreUserPrefsput the blindTyping into line 2 of InstoreUserPrefshide msgset the loc of msg to -1000,-1000set blindTyping to FALSEhide menuBartitleBar hideset the cantModify of this stack to TRUEset userLevel to 0elseput TRUE into MSscriptingif line 1 of InstoreUserPrefs is not empty then set userLevel to line 1 of InstoreUserPrefs else set userLevel to 2if line 2 of InstoreUserPrefs is not empty then set blindTyping to line 2 of InstoreUserPrefsif rpStackName is "" then--‚Ä¢‚Ä¢ Added by Medior 8/8/90titleBar showshow menuBarend ifset the cantModify of this stack to FALSEset the loc of msg to 24,364end ifend securityon badVersionanswer "Sorry, this stack requires HyperCard v 1.2." with "Home" or "Quit"if it is "Quit" then doMenu "Quit HyperCard" elseset lockmessages to TRUEgo Homeend ifend badVersionon idleglobal NextResetTime, firstLoc, MSscripting --, NeedMenuRefreshif MSscripting is EMPTY then security TRUEif MSscripting is true then pass idlecheckReset --see if it‚Äôs time to resetpass idleend idleon checkResetglobal NextResetTime, firstLocif firstLoc <> the mouseLoc then setTimerLocif the seconds > NextResetTime then-- there is no final count, go right to attract loopdoAttractsetTimerLoc -- reset the switchesend ifend checkReseton setTimerLoc -- called by all events that inhibit resetglobal NextResetTime, firstLocput the seconds + cd fld "timeOut" of cd "Main Menu" into NextResetTimeput the mouseLoc into firstLocend setTimerLocon doMenu whatglobal MSscripting,RPStackNameif MSscripting is TRUE then pass doMenuif what is in "Home,Quit HyperCard" AND the shiftKey is "down" then pa